www.gusucode.com > HCONLY站长管理助手 V1.3 > HCONLY站长管理助手 V1.3\code\tools\seo\seo.asp
<!--#include file="Conn.asp"-->
<%
dim url,ttime
url=request("url")
ttime=request("ttime")
if url="" or instr(url,".")<1 then
response.write "<script>alert('错误的域名'); history.go(-1)</script>"
response.End()
end if
url=replace(url,"http://","")
if ttime="" or not isnumeric(ttime) or ttime>60 or ttime<15 then
ttime=20
end if
dim page
page=request("page")
dim auto
auto=request("auto")
dim url2
set rs=server.CreateObject("adodb.recordset")
sql="select * from url where ischeck=1 order by id desc "
rs.open sql,conn,1,1
if not rs.eof then
rs.pagesize=30
if page="" or not isnumeric(page) then
page=rs.pagecount
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="网站 自动化 宣传机器 网站优化工具,优点:平民化傻瓜式操作,让网站优化比打字还简单." />
<meta name="description" content="轻轻松松提高网站曝光率,明显增加外部链接,快速增高世界排名" />
<title>网站自动化宣传机器-(SEO工具)</title>
<link href="seo.css" rel="stylesheet" type="text/css" />
<style>
</style>
<script>
function getEvent(evnt) {if(event.keyCode==39){self.location=xia.href;}} document.onkeydown = getEvent;
</script>
</head>
<body>
<div class="in">
<div class="inh">网站自动化宣传机器</div>
<li>我们的口号是：机器能做到的，人就靠边站吧。 </li>
<li>我们的特点是：全免费、免人力、工具化、自动化、批量化、普适化、系统化！</li>
<li>一切交给电脑，交给批量而自动化的工具，节省我们的时间、健康、人力、金钱和脑细胞。现在开始，体验和享受功能强大、轻松便捷而免费的网站推广过程吧。 </li>
<li>根据最新的科学艺术预测：现如今人类的一切重复性劳动，在未来都可以被机器和工具替代，人可以腾出手来，从事自己喜爱的创造性的事情。就让我们先行一步吧，把网站的宣传推广工作交由机器来完成。</li>
</div>
<div class="body">
<div class="clock">您在本页已经停留了<span id="qian_li_v"></span>
<SCRIPT language="javascript">
<!--
var sec=0;
var min=0;
var hou=0;
flag=0;
idt=window.setTimeout("qian_li();",1000);
function qian_li()
{
sec++;
if(sec==60){sec=0;min+=1;}
if(min==60){min=0;hou+=1;}
if((min>0)&&(flag==0))
{
// window.alert("您刚刚来了1分钟!可别急着走开，还有好多好东东等着您呢!--站长");
flag=1;
}
document.getElementById("qian_li_v").innerHTML=hou+"小时"+min+"分"+sec+"秒";
idt=window.setTimeout("qian_li();",1000);
}
//-->
<%
if auto="yes" then
if page<>1 then
%>
setTimeout('location="?url=<%=url%>&page=<%=page-1%>&auto=yes&ttime=<%=ttime%>"',<%=ttime%>*1000);
<%
end if
end if
%>
</SCRIPT>一般20秒左右，本页的信息能够提交完毕，20秒后就可以翻页了。</div>
<div class="naxtpage">
<%
if page<>1 then
%>
按→键翻到<a href='?url=<%=url%>&page=<%=page-1%>&ttime=<%=ttime%>'>下一页，第<%=page-1%>页</a>
<%
else
response.write "<span class='red'>恭喜您，全部信息提交完毕!</span>"
end if
%>
【自动翻页功能当前状态：<span class="red"><%if auto="yes" then response.write "开，每 "&ttime&" 秒翻页" else response.write "关" end if%></span>】
</div>
<%
if cint(page)>rs.pagecount then
page=rs.pagecount
end if
rs.absolutepage=page
%>
<div class="page">
<%
dim dapage,xiaopage
if rs.absolutepage+8>rs.pagecount then
dapage=rs.pagecount
else
dapage=rs.absolutepage+8
end if
if rs.absolutepage-8<1 then
xiaopage=1
else
xiaopage=rs.absolutepage-8
end if
if rs.absolutepage<>rs.pagecount then
response.write "<a href='?page="&rs.pagecount&"&auto="&auto&"&url="&server.HTMLEncode(url)&"&ttime="&ttime&"'>首页 </a> "
end if
for i=dapage to xiaopage step -1
if i=rs.absolutepage then
response.write "<span class='nowpage'>[本页"&i&"]</span> "
else
response.write "<a href='?page="&i&"&auto="&auto&"&url="&server.HTMLEncode(url)&"&ttime="&ttime&"' "
if i=cint(rs.absolutepage-1) then response.write " id='xia' "
response.write ">["&i&"] </a> "
end if
next
if page<>1 then
response.write "<a href='?page=1&auto="&auto&"&url="&server.HTMLEncode(url)&"&ttime="&ttime&"'>尾页 </a> "
end if
%>
</div>
<div class="list">
<div class="free">目前共有<span class="red"><%=rs.recordcount%></span>个查询网址，意味着可以瞬时将您的网站推广到这些地方。更奇妙的是，这一切都是免费的。</div>
<%
response.write "<ol>"
for i=1 to rs.pagesize
if rs.eof then exit for
url2=rs("url")
url2=replace(url2,"【qianliurl】",url)
url2=replace(url2,"【qianliurl2】","qian.li")
response.write "<li><a href='"&url2&"' target=_blank>宣传 "&url&" </a></li><br><iframe src='seo.html?"&url2&"' height='50' width='90%' marginwidth='0' marginheight='0' hspace='0' vspace='0' frameborder='0' scrolling='no'></iframe>"
rs.movenext
next
response.write "</ol>"
%>
<div class="page">
<%
if rs.absolutepage<>rs.pagecount then
response.write "<a href='?page="&rs.pagecount&"&auto="&auto&"&url="&server.HTMLEncode(url)&"&ttime="&ttime&"'>首页 </a> "
end if
for i=dapage to xiaopage step -1
if i=rs.absolutepage-1 then
response.write "[本页"&i&"] "
else
response.write "<a href='?page="&i&"&auto="&auto&"&url="&server.HTMLEncode(url)&"&ttime="&ttime&"'>["&i&"] </a> "
end if
next
if page<>1 then
response.write "<a href='?page=1&auto="&auto&"&url="&server.HTMLEncode(url)&"&ttime="&ttime&"'>尾页 </a> "
end if
%>
</div>
<%
else
response.write "Error"
end if
rs.close
set rs=nothing
%>
<script>
function killErrors() {
return true;
}
window.onerror = killErrors;
</script>
</div>
</div>
</body>
</html>